home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: LaTeX Document
(document/latex).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LaTeX Document (document/latex)
| magic
| Supported |
| 99%
| dexvert
| Texinfo Document (document/texInfo)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| LaTeX document text
| default
| |
| 99%
| file
| TeX document text
| default
| |
| 98%
| file
| Lisp/Scheme program text
| default
| |
| 97%
| file
| Lisp/Scheme program, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/281 LaTeX (Subdocument)
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 6c 32 6c 61 | 74 65 78 69 6e 66 6f 2e |;;; l2la|texinfo.|
|00000010| 65 6c 0a 0a 3b 3b 3b 20 | 4c 61 74 65 78 69 6e 66 |el..;;; |Latexinf|
|00000020| 6f 20 6d 6f 64 65 20 75 | 74 69 6c 69 74 69 65 73 |o mode u|tilities|
|00000030| 20 74 6f 20 63 6f 6e 76 | 65 72 74 20 4c 61 54 65 | to conv|ert LaTe|
|00000040| 58 20 66 69 6c 65 73 20 | 74 6f 20 6c 61 74 65 78 |X files |to latex|
|00000050| 69 6e 66 6f 2e 0a 0a 3b | 3b 3b 20 57 72 69 74 74 |info...;|;; Writt|
|00000060| 65 6e 20 66 6f 72 20 4c | 61 74 65 78 69 6e 66 6f |en for L|atexinfo|
|00000070| 20 62 79 20 4d 69 6b 65 | 20 43 6c 61 72 6b 73 6f | by Mike| Clarkso|
|00000080| 6e 0a 3b 3b 3b 20 50 6c | 65 61 73 65 20 73 65 6e |n.;;; Pl|ease sen|
|00000090| 64 20 62 75 67 20 72 65 | 70 6f 72 74 73 20 74 6f |d bug re|ports to|
|000000a0| 3a 20 20 6d 69 6b 65 40 | 61 70 6c 2e 69 73 74 73 |: mike@|apl.ists|
|000000b0| 2e 63 61 0a 0a 3b 3b 3b | 20 43 6f 70 79 6c 65 66 |.ca..;;;| Copylef|
|000000c0| 74 20 20 28 43 29 20 31 | 39 39 31 20 4d 69 63 68 |t (C) 1|991 Mich|
|000000d0| 61 65 6c 20 45 2e 20 43 | 6c 61 72 6b 73 6f 6e 0a |ael E. C|larkson.|
|000000e0| 3b 3b 20 49 74 27 73 20 | 6e 6f 74 20 70 65 72 66 |;; It's |not perf|
|000000f0| 65 63 74 2c 20 62 75 74 | 20 74 68 65 72 65 27 73 |ect, but| there's|
|00000100| 20 6e 6f 74 20 6d 75 63 | 68 20 74 6f 20 64 6f 2e | not muc|h to do.|
|00000110| 0a 0a 28 72 65 71 75 69 | 72 65 20 27 6c 61 74 65 |..(requi|re 'late|
|00000120| 78 69 6e 66 6f 29 0a 28 | 72 65 71 75 69 72 65 20 |xinfo).(|require |
|00000130| 27 6c 61 74 65 78 6e 66 | 6f 2d 75 70 64 29 0a 0a |'latexnf|o-upd)..|
|00000140| 28 64 65 66 75 6e 20 6c | 61 74 65 78 2d 74 6f 2d |(defun l|atex-to-|
|00000150| 6c 61 74 65 78 69 6e 66 | 6f 20 28 61 72 67 29 0a |latexinf|o (arg).|
|00000160| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 | (inter|active "|
|00000170| 46 4e 65 77 20 46 69 6c | 65 20 4e 61 6d 65 3a 20 |FNew Fil|e Name: |
|00000180| 22 29 0a 20 20 28 6c 65 | 74 20 28 28 63 61 73 65 |"). (le|t ((case|
|00000190| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 6e 69 6c |-fold-se|arch nil|
|000001a0| 29 0a 09 28 69 6e 70 75 | 74 2d 62 75 66 66 65 72 |)..(inpu|t-buffer|
|000001b0| 20 28 63 75 72 72 65 6e | 74 2d 62 75 66 66 65 72 | (curren|t-buffer|
|000001c0| 29 29 29 0a 20 20 20 20 | 28 66 69 6e 64 2d 66 69 |))). |(find-fi|
|000001d0| 6c 65 20 61 72 67 29 0a | 20 20 20 20 28 65 72 61 |le arg).| (era|
|000001e0| 73 65 2d 62 75 66 66 65 | 72 29 0a 20 20 20 20 28 |se-buffe|r). (|
|000001f0| 69 6e 73 65 72 74 2d 62 | 75 66 66 65 72 2d 73 75 |insert-b|uffer-su|
|00000200| 62 73 74 72 69 6e 67 20 | 69 6e 70 75 74 2d 62 75 |bstring |input-bu|
|00000210| 66 66 65 72 29 0a 20 20 | 20 20 28 73 65 74 2d 73 |ffer). | (set-s|
|00000220| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6c 61 74 65 |yntax-ta|ble late|
|00000230| 78 69 6e 66 6f 2d 66 6f | 72 6d 61 74 2d 73 79 6e |xinfo-fo|rmat-syn|
|00000240| 74 61 78 2d 74 61 62 6c | 65 29 0a 20 20 20 20 28 |tax-tabl|e). (|
|00000250| 67 6f 74 6f 2d 63 68 61 | 72 20 28 70 6f 69 6e 74 |goto-cha|r (point|
|00000260| 2d 6d 69 6e 29 29 0a 20 | 20 20 20 3b 3b 20 49 6e |-min)). | ;; In|
|00000270| 70 75 74 20 74 68 65 20 | 5c 69 6e 70 75 74 20 66 |put the |\input f|
|00000280| 69 6c 65 73 0a 20 20 20 | 20 28 6c 32 6c 2d 69 6e |iles. | (l2l-in|
|00000290| 70 75 74 2d 66 69 6c 65 | 73 29 0a 20 20 20 20 28 |put-file|s). (|
|000002a0| 67 6f 74 6f 2d 63 68 61 | 72 20 28 70 6f 69 6e 74 |goto-cha|r (point|
|000002b0| 2d 6d 69 6e 29 29 0a 20 | 20 20 20 28 72 65 2d 73 |-min)). | (re-s|
|000002c0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5e |earch-fo|rward "^|
|000002d0| 5c 5c 5c 5c 64 6f 63 75 | 6d 65 6e 74 73 74 79 6c |\\\\docu|mentstyl|
|000002e0| 65 22 20 6e 69 6c 20 6e | 69 6c 29 0a 20 20 20 20 |e" nil n|il). |
|000002f0| 28 69 66 20 28 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |(if (loo|king-at |
|00000300| 22 5c 5c 5b 22 29 0a 09 | 28 70 72 6f 67 6e 20 28 |"\\[")..|(progn (|
|00000310| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000320| 5d 22 20 6e 69 6c 20 6e | 69 6c 29 0a 09 20 20 20 |]" nil n|il).. |
|00000330| 20 20 20 20 28 66 6f 72 | 77 61 72 64 2d 63 68 61 | (for|ward-cha|
|00000340| 72 20 2d 31 29 0a 09 20 | 20 20 20 20 20 20 28 69 |r -1).. | (i|
|00000350| 6e 73 65 72 74 20 22 2c | 6c 61 74 65 78 69 6e 66 |nsert ",|latexinf|
|00000360| 6f 22 29 29 0a 20 20 20 | 20 20 20 28 69 6e 73 65 |o")). | (inse|
|00000370| 72 74 20 22 5b 6c 61 74 | 65 78 69 6e 66 6f 5d 22 |rt "[lat|exinfo]"|
|00000380| 29 29 0a 20 20 20 20 28 | 72 65 2d 73 65 61 72 63 |)). (|re-searc|
|00000390| 68 2d 66 6f 72 77 61 72 | 64 20 22 5e 5c 5c 5c 5c |h-forwar|d "^\\\\|
|000003a0| 62 65 67 69 6e 7b 64 6f | 63 75 6d 65 6e 74 7d 22 |begin{do|cument}"|
|000003b0| 20 6e 69 6c 20 6e 69 6c | 29 0a 20 20 20 20 28 66 | nil nil|). (f|
|000003c0| 6f 72 77 61 72 64 2d 6c | 69 6e 65 20 31 29 0a 20 |orward-l|ine 1). |
|000003d0| 20 20 20 28 69 6e 73 65 | 72 74 20 22 5c 5c 61 6c | (inse|rt "\\al|
|000003e0| 77 61 79 73 72 65 66 69 | 6c 6c 5c 6e 22 20 0a 09 |waysrefi|ll\n" ..|
|000003f0| 20 20 20 20 22 5c 5c 73 | 65 74 66 69 6c 65 6e 61 | "\\s|etfilena|
|00000400| 6d 65 7b 22 20 61 72 67 | 20 22 2e 69 6e 66 6f 7d |me{" arg| ".info}|
|00000410| 5c 6e 22 0a 09 20 20 20 | 20 22 5c 5c 6e 6f 64 65 |\n".. | "\\node|
|00000420| 20 74 6f 70 2c 20 2c 28 | 64 69 72 29 2c 20 28 64 | top, ,(|dir), (d|
|00000430| 69 72 29 5c 6e 22 29 0a | 20 20 20 20 28 6c 32 6c |ir)\n").| (l2l|
|00000440| 2d 66 6f 72 6d 61 74 2d | 73 63 61 6e 2d 6e 6f 76 |-format-|scan-nov|
|00000450| 65 72 62 61 74 69 6d 29 | 0a 20 20 20 20 28 67 6f |erbatim)|. (go|
|00000460| 74 6f 2d 63 68 61 72 20 | 28 70 6f 69 6e 74 2d 6d |to-char |(point-m|
|00000470| 69 6e 29 29 0a 20 20 20 | 20 28 73 65 74 2d 6d 61 |in)). | (set-ma|
|00000480| 72 6b 2d 63 6f 6d 6d 61 | 6e 64 29 0a 20 20 20 20 |rk-comma|nd). |
|00000490| 28 67 6f 74 6f 2d 63 68 | 61 72 20 28 70 6f 69 6e |(goto-ch|ar (poin|
|000004a0| 74 2d 6d 61 78 29 29 0a | 20 20 20 20 28 6c 61 74 |t-max)).| (lat|
|000004b0| 65 78 69 6e 66 6f 2d 73 | 65 71 75 65 6e 74 69 61 |exinfo-s|equentia|
|000004c0| 6c 2d 6e 6f 64 65 2d 75 | 70 64 61 74 65 20 74 29 |l-node-u|pdate t)|
|000004d0| 0a 20 20 20 20 29 0a 20 | 20 29 0a 0a 28 64 65 66 |. ). | )..(def|
|000004e0| 75 6e 20 6c 32 6c 2d 69 | 6e 70 75 74 2d 66 69 6c |un l2l-i|nput-fil|
|000004f0| 65 73 20 28 29 0a 20 20 | 28 69 66 20 28 61 6e 64 |es (). |(if (and|
|00000500| 20 28 73 61 76 65 2d 65 | 78 63 75 72 73 69 6f 6e | (save-e|xcursion|
|00000510| 20 28 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 | (re-sea|rch-forw|
|00000520| 61 72 64 20 22 5e 5c 5c | 5c 5c 69 6e 70 75 74 22 |ard "^\\|\\input"|
|00000530| 20 6e 69 6c 20 74 29 29 | 0a 09 20 20 20 28 79 65 | nil t))|.. (ye|
|00000540| 73 2d 6f 72 2d 6e 6f 2d | 70 0a 09 20 20 20 20 22 |s-or-no-|p.. "|
|00000550| 57 6f 75 6c 64 20 79 6f | 75 20 6c 69 6b 65 20 74 |Would yo|u like t|
|00000560| 6f 20 64 6f 20 74 68 65 | 20 5c 5c 5c 5c 69 6e 70 |o do the| \\\\inp|
|00000570| 75 74 20 66 69 6c 65 73 | 20 6e 6f 77 2c 20 74 6f |ut files| now, to|
|00000580| 20 64 6f 20 69 74 20 61 | 6c 6c 20 61 74 20 6f 6e | do it a|ll at on|
|00000590| 63 65 3f 22 29 29 0a 20 | 20 20 20 20 20 28 77 68 |ce?")). | (wh|
|000005a0| 69 6c 65 20 28 72 65 2d | 73 65 61 72 63 68 2d 66 |ile (re-|search-f|
|000005b0| 6f 72 77 61 72 64 20 22 | 5e 5c 5c 5c 5c 69 6e 70 |orward "|^\\\\inp|
|000005c0| 75 74 22 20 6e 69 6c 20 | 74 29 0a 09 28 73 61 76 |ut" nil |t)..(sav|
|000005d0| 65 2d 65 78 63 75 72 73 | 69 6f 6e 0a 09 20 20 28 |e-excurs|ion.. (|
|000005e0| 73 6b 69 70 2d 63 68 61 | 72 73 2d 66 6f 72 77 61 |skip-cha|rs-forwa|
|000005f0| 72 64 20 22 20 09 7b 22 | 29 0a 09 20 20 28 6c 65 |rd " .{"|).. (le|
|00000600| 74 20 28 28 66 69 6c 65 | 2d 6e 61 6d 65 0a 09 09 |t ((file|-name...|
|00000610| 20 28 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 | (buffer|-substri|
|00000620| 6e 67 20 0a 09 09 20 20 | 28 70 6f 69 6e 74 29 0a |ng ... |(point).|
|00000630| 09 09 20 20 28 70 72 6f | 67 6e 0a 09 09 20 20 20 |.. (pro|gn... |
|00000640| 20 28 73 6b 69 70 2d 63 | 68 61 72 73 2d 66 6f 72 | (skip-c|hars-for|
|00000650| 77 61 72 64 20 22 5e 20 | 09 5c 6e 22 29 0a 09 09 |ward "^ |.\n")...|
|00000660| 20 20 20 20 28 70 6f 69 | 6e 74 29 29 29 29 29 0a | (poi|nt))))).|
|00000670| 09 20 20 20 20 28 73 65 | 74 71 20 66 69 6c 65 2d |. (se|tq file-|
|00000680| 6e 61 6d 65 0a 09 09 20 | 20 28 65 78 70 61 6e 64 |name... | (expand|
|00000690| 2d 66 69 6c 65 2d 6e 61 | 6d 65 0a 09 09 20 20 20 |-file-na|me... |
|000006a0| 28 69 66 20 28 66 69 6c | 65 2d 72 65 61 64 61 62 |(if (fil|e-readab|
|000006b0| 6c 65 2d 70 20 28 65 78 | 70 61 6e 64 2d 66 69 6c |le-p (ex|pand-fil|
|000006c0| 65 2d 6e 61 6d 65 20 66 | 69 6c 65 2d 6e 61 6d 65 |e-name f|ile-name|
|000006d0| 29 29 0a 09 09 20 20 20 | 20 20 20 20 66 69 6c 65 |))... | file|
|000006e0| 2d 6e 61 6d 65 0a 09 09 | 20 20 20 20 20 28 63 6f |-name...| (co|
|000006f0| 6e 63 61 74 20 66 69 6c | 65 2d 6e 61 6d 65 20 22 |ncat fil|e-name "|
|00000700| 2e 74 65 78 22 29 29 29 | 29 0a 09 20 20 20 20 28 |.tex")))|).. (|
|00000710| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|00000720| 65 20 31 29 0a 09 20 20 | 20 20 28 69 66 20 28 66 |e 1).. | (if (f|
|00000730| 69 6c 65 2d 72 65 61 64 | 61 62 6c 65 2d 70 20 66 |ile-read|able-p f|
|00000740| 69 6c 65 2d 6e 61 6d 65 | 29 0a 09 09 28 70 72 6f |ile-name|)...(pro|
|00000750| 67 6e 0a 09 09 20 20 28 | 64 65 6c 65 74 65 2d 72 |gn... (|delete-r|
|00000760| 65 67 69 6f 6e 20 28 70 | 6f 69 6e 74 29 20 28 70 |egion (p|oint) (p|
|00000770| 72 6f 67 6e 20 28 66 6f | 72 77 61 72 64 2d 6c 69 |rogn (fo|rward-li|
|00000780| 6e 65 20 31 29 20 28 70 | 6f 69 6e 74 29 29 29 0a |ne 1) (p|oint))).|
|00000790| 09 09 20 20 28 6d 65 73 | 73 61 67 65 20 22 49 6e |.. (mes|sage "In|
|000007a0| 73 65 72 74 69 6e 67 20 | 66 69 6c 65 20 25 73 2e |serting |file %s.|
|000007b0| 2e 2e 22 20 66 69 6c 65 | 2d 6e 61 6d 65 29 20 28 |.." file|-name) (|
|000007c0| 73 69 74 2d 66 6f 72 20 | 31 29 0a 09 09 20 20 28 |sit-for |1)... (|
|000007d0| 69 6e 73 65 72 74 2d 66 | 69 6c 65 20 66 69 6c 65 |insert-f|ile file|
|000007e0| 2d 6e 61 6d 65 29 0a 09 | 09 20 20 28 6d 65 73 73 |-name)..|. (mess|
|000007f0| 61 67 65 20 22 49 6e 73 | 65 72 74 69 6e 67 20 66 |age "Ins|erting f|
|00000800| 69 6c 65 20 25 73 2e 2e | 2e 64 6f 6e 65 22 20 66 |ile %s..|.done" f|
|00000810| 69 6c 65 2d 6e 61 6d 65 | 29 29 0a 09 20 20 20 20 |ile-name|)).. |
|00000820| 20 20 28 65 72 72 6f 72 | 20 22 49 20 63 61 6e 27 | (error| "I can'|
|00000830| 74 20 66 69 6e 64 20 74 | 68 65 20 66 69 6c 65 20 |t find t|he file |
|00000840| 25 73 22 20 66 69 6c 65 | 2d 6e 61 6d 65 29 29 0a |%s" file|-name)).|
|00000850| 09 20 20 20 20 29 29 29 | 29 29 0a 0a 28 64 65 66 |. )))|))..(def|
|00000860| 75 6e 20 6c 32 6c 2d 66 | 6f 72 6d 61 74 2d 73 63 |un l2l-f|ormat-sc|
|00000870| 61 6e 2d 6e 6f 76 65 72 | 62 61 74 69 6d 20 28 29 |an-nover|batim ()|
|00000880| 0a 20 20 28 69 66 20 28 | 72 65 2d 73 65 61 72 63 |. (if (|re-searc|
|00000890| 68 2d 66 6f 72 77 61 72 | 64 20 6c 61 74 65 78 69 |h-forwar|d latexi|
|000008a0| 6e 66 6f 2d 73 70 65 63 | 69 61 6c 2d 72 65 67 65 |nfo-spec|ial-rege|
|000008b0| 78 70 20 6e 69 6c 20 74 | 29 0a 20 20 20 20 20 20 |xp nil t|). |
|000008c0| 28 6c 65 74 20 28 28 73 | 74 61 72 74 20 28 70 6f |(let ((s|tart (po|
|000008d0| 69 6e 74 2d 6d 69 6e 29 | 29 0a 09 20 20 20 20 28 |int-min)|).. (|
|000008e0| 65 6e 64 20 6e 69 6c 29 | 0a 09 20 20 20 20 73 74 |end nil)|.. st|
|000008f0| 72 29 0a 09 28 67 6f 74 | 6f 2d 63 68 61 72 20 73 |r)..(got|o-char s|
|00000900| 74 61 72 74 29 0a 09 28 | 77 68 69 6c 65 20 28 72 |tart)..(|while (r|
|00000910| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000920| 20 6c 32 6c 2d 73 70 65 | 63 69 61 6c 2d 72 65 67 | l2l-spe|cial-reg|
|00000930| 65 78 70 20 6e 69 6c 20 | 74 29 0a 09 20 20 28 73 |exp nil |t).. (s|
|00000940| 65 74 71 20 73 74 72 20 | 28 62 75 66 66 65 72 2d |etq str |(buffer-|
|00000950| 73 75 62 73 74 72 69 6e | 67 20 28 6d 61 74 63 68 |substrin|g (match|
|00000960| 2d 62 65 67 69 6e 6e 69 | 6e 67 20 30 29 20 28 6d |-beginni|ng 0) (m|
|00000970| 61 74 63 68 2d 65 6e 64 | 20 30 29 29 29 0a 09 20 |atch-end| 0))).. |
|00000980| 20 3b 3b 20 48 61 6e 64 | 6c 65 20 4c 61 54 65 58 | ;; Hand|le LaTeX|
|00000990| 20 5c 69 6e 70 75 74 7b | 66 69 6c 65 6e 61 6d 65 | \input{|filename|
|000009a0| 7d 20 63 6f 6d 6d 61 6e | 64 73 20 62 79 20 69 6e |} comman|ds by in|
|000009b0| 73 65 72 74 69 6e 67 20 | 74 68 65 6d 20 6e 6f 77 |serting |them now|
|000009c0| 2e 0a 09 20 20 3b 3b 20 | 4f 6e 6c 79 20 6c 6f 6f |... ;; |Only loo|
|000009d0| 6b 20 61 74 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |k at the| beginni|
|000009e0| 6e 67 20 6f 66 20 74 68 | 65 20 6c 69 6e 65 20 74 |ng of th|e line t|
|000009f0| 6f 20 61 76 6f 69 64 20 | 5c 63 20 5c 69 6e 70 75 |o avoid |\c \inpu|
|00000a00| 74 7b 66 6f 6f 7d 0a 09 | 20 20 28 63 6f 6e 64 20 |t{foo}..| (cond |
|00000a10| 0a 09 20 20 20 28 28 73 | 74 72 69 6e 67 2d 65 71 |.. ((s|tring-eq|
|00000a20| 75 61 6c 20 73 74 72 20 | 22 5c 5c 69 6e 70 75 74 |ual str |"\\input|
|00000a30| 7b 22 29 0a 09 20 20 20 | 20 28 6c 61 74 65 78 69 |{").. | (latexi|
|00000a40| 6e 66 6f 2d 69 6e 73 65 | 72 74 2d 69 6e 70 75 74 |nfo-inse|rt-input|
|00000a50| 2d 66 69 6c 65 73 29 0a | 09 20 20 20 20 29 0a 09 |-files).|. )..|
|00000a60| 20 20 20 28 28 73 74 72 | 69 6e 67 2d 65 71 75 61 | ((str|ing-equa|
|00000a70| 6c 20 73 74 72 20 22 5c | 5c 62 65 67 69 6e 7b 76 |l str "\|\begin{v|
|00000a80| 65 72 62 61 74 69 6d 7d | 22 29 0a 09 20 20 20 20 |erbatim}|").. |
|00000a90| 28 73 65 74 71 20 65 6e | 64 20 28 70 6f 69 6e 74 |(setq en|d (point|
|00000aa0| 29 29 0a 09 20 20 20 20 | 28 6c 32 6c 2d 64 6f 2d |)).. |(l2l-do-|
|00000ab0| 67 6c 6f 62 61 6c 2d 73 | 75 62 73 74 69 74 75 74 |global-s|ubstitut|
|00000ac0| 69 6f 6e 73 20 73 74 61 | 72 74 20 65 6e 64 29 0a |ions sta|rt end).|
|00000ad0| 09 20 20 20 20 28 72 65 | 2d 73 65 61 72 63 68 2d |. (re|-search-|
|00000ae0| 66 6f 72 77 61 72 64 20 | 22 5c 5c 5c 5c 65 6e 64 |forward |"\\\\end|
|00000af0| 7b 76 65 72 62 61 74 69 | 6d 7d 22 20 6e 69 6c 20 |{verbati|m}" nil |
|00000b00| 6e 69 6c 29 20 0a 09 20 | 20 20 20 28 73 65 74 71 |nil) .. | (setq|
|00000b10| 20 73 74 61 72 74 20 28 | 70 6f 69 6e 74 29 29 0a | start (|point)).|
|00000b20| 09 20 20 20 20 29 0a 09 | 20 20 20 28 28 73 74 72 |. )..| ((str|
|00000b30| 69 6e 67 2d 65 71 75 61 | 6c 20 73 74 72 20 22 5c |ing-equa|l str "\|
|00000b40| 5c 76 65 72 62 22 29 0a | 09 20 20 20 20 28 73 65 |\verb").|. (se|
|00000b50| 74 71 20 65 6e 64 20 28 | 70 6f 69 6e 74 29 29 0a |tq end (|point)).|
|00000b60| 09 20 20 20 20 28 6c 32 | 6c 2d 64 6f 2d 67 6c 6f |. (l2|l-do-glo|
|00000b70| 62 61 6c 2d 73 75 62 73 | 74 69 74 75 74 69 6f 6e |bal-subs|titution|
|00000b80| 73 20 73 74 61 72 74 20 | 65 6e 64 29 0a 09 20 20 |s start |end).. |
|00000b90| 20 20 28 73 65 74 71 20 | 73 74 72 20 28 62 75 66 | (setq |str (buf|
|00000ba0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 20 28 70 |fer-subs|tring (p|
|00000bb0| 6f 69 6e 74 29 20 28 31 | 2b 20 28 70 6f 69 6e 74 |oint) (1|+ (point|
|00000bc0| 29 29 29 29 0a 09 20 20 | 20 20 28 66 6f 72 77 61 |)))).. | (forwa|
|00000bd0| 72 64 2d 63 68 61 72 20 | 31 29 0a 09 20 20 20 20 |rd-char |1).. |
|00000be0| 28 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |(search-|forward |
|00000bf0| 73 74 72 20 6e 69 6c 20 | 6e 69 6c 29 20 0a 09 20 |str nil |nil) .. |
|00000c00| 20 20 20 28 66 6f 72 77 | 61 72 64 2d 63 68 61 72 | (forw|ard-char|
|00000c10| 20 31 29 0a 09 20 20 20 | 20 28 73 65 74 71 20 73 | 1).. | (setq s|
|00000c20| 74 61 72 74 20 28 70 6f | 69 6e 74 29 29 0a 09 20 |tart (po|int)).. |
|00000c30| 20 20 20 29 0a 09 20 20 | 20 29 0a 09 20 20 29 0a | ).. | ).. ).|
|00000c40| 09 28 69 66 20 65 6e 64 | 20 28 6c 32 6c 2d 64 6f |.(if end| (l2l-do|
|00000c50| 2d 67 6c 6f 62 61 6c 2d | 73 75 62 73 74 69 74 75 |-global-|substitu|
|00000c60| 74 69 6f 6e 73 20 73 74 | 61 72 74 20 28 70 6f 69 |tions st|art (poi|
|00000c70| 6e 74 2d 6d 61 78 29 29 | 29 0a 09 29 0a 20 20 20 |nt-max))|)..). |
|00000c80| 20 28 6c 32 6c 2d 64 6f | 2d 67 6c 6f 62 61 6c 2d | (l2l-do|-global-|
|00000c90| 73 75 62 73 74 69 74 75 | 74 69 6f 6e 73 20 28 70 |substitu|tions (p|
|00000ca0| 6f 69 6e 74 2d 6d 69 6e | 29 20 28 70 6f 69 6e 74 |oint-min|) (point|
|00000cb0| 2d 6d 61 78 29 29 0a 20 | 20 20 20 29 0a 20 20 28 |-max)). | ). (|
|00000cc0| 6c 32 6c 2d 66 6f 72 6d | 61 74 2d 73 63 61 6e 29 |l2l-form|at-scan)|
|00000cd0| 29 0a 0a 28 64 65 66 75 | 6e 20 6c 32 6c 2d 66 6f |)..(defu|n l2l-fo|
|00000ce0| 72 6d 61 74 2d 73 63 61 | 6e 20 28 29 0a 20 20 28 |rmat-sca|n (). (|
|00000cf0| 67 6f 74 6f 2d 63 68 61 | 72 20 28 70 6f 69 6e 74 |goto-cha|r (point|
|00000d00| 2d 6d 69 6e 29 29 0a 20 | 20 28 6c 61 74 65 78 69 |-min)). | (latexi|
|00000d10| 6e 66 6f 2d 69 6e 73 65 | 72 74 2d 6e 6f 64 65 2d |nfo-inse|rt-node-|
|00000d20| 6c 69 6e 65 73 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |lines (p|oint-min|
|00000d30| 29 20 28 70 6f 69 6e 74 | 2d 6d 61 78 29 20 74 29 |) (point|-max) t)|
|00000d40| 0a 20 20 28 6c 61 74 65 | 78 69 6e 66 6f 2d 6d 61 |. (late|xinfo-ma|
|00000d50| 73 74 65 72 2d 6d 65 6e | 75 20 38 29 0a 20 20 29 |ster-men|u 8). )|
|00000d60| 0a 0a 28 64 65 66 75 6e | 20 6c 32 6c 2d 64 6f 2d |..(defun| l2l-do-|
|00000d70| 67 6c 6f 62 61 6c 2d 73 | 75 62 73 74 69 74 75 74 |global-s|ubstitut|
|00000d80| 69 6f 6e 73 20 28 6d 69 | 6e 20 6d 61 78 29 0a 20 |ions (mi|n max). |
|00000d90| 20 28 73 61 76 65 2d 65 | 78 63 75 72 73 69 6f 6e | (save-e|xcursion|
|00000da0| 0a 20 20 20 20 28 6e 61 | 72 72 6f 77 2d 74 6f 2d |. (na|rrow-to-|
|00000db0| 72 65 67 69 6f 6e 20 6d | 69 6e 20 6d 61 78 29 0a |region m|in max).|
|00000dc0| 20 20 20 20 3b 3b 20 4c | 61 54 65 58 20 73 6f 6d | ;; L|aTeX som|
|00000dd0| 65 74 69 6d 65 73 20 75 | 73 65 73 20 5c 5c 20 74 |etimes u|ses \\ t|
|00000de0| 6f 20 66 6f 72 63 65 20 | 61 20 6e 65 77 2d 6c 69 |o force |a new-li|
|00000df0| 6e 65 0a 20 20 20 20 28 | 6c 65 74 20 28 28 63 61 |ne. (|let ((ca|
|00000e00| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 6e |se-fold-|search n|
|00000e10| 69 6c 29 0a 09 20 20 28 | 61 6c 69 73 74 20 6c 32 |il).. (|alist l2|
|00000e20| 6c 2d 67 6c 6f 62 61 6c | 2d 61 6c 69 73 74 29 29 |l-global|-alist))|
|00000e30| 0a 20 20 20 20 20 20 28 | 77 68 69 6c 65 20 61 6c |. (|while al|
|00000e40| 69 73 74 0a 09 28 67 6f | 74 6f 2d 63 68 61 72 20 |ist..(go|to-char |
|00000e50| 28 70 6f 69 6e 74 2d 6d | 69 6e 29 29 0a 09 28 71 |(point-m|in))..(q|
|00000e60| 75 69 65 74 6c 79 2d 72 | 65 70 6c 61 63 65 2d 72 |uietly-r|eplace-r|
|00000e70| 65 67 65 78 70 20 28 63 | 61 72 20 28 63 61 72 20 |egexp (c|ar (car |
|00000e80| 61 6c 69 73 74 29 29 20 | 28 63 64 72 20 28 63 61 |alist)) |(cdr (ca|
|00000e90| 72 20 61 6c 69 73 74 29 | 29 20 6e 69 6c 29 0a 09 |r alist)|) nil)..|
|00000ea0| 28 6d 65 73 73 61 67 65 | 20 22 25 73 22 20 28 63 |(message| "%s" (c|
|00000eb0| 61 72 20 28 63 61 72 20 | 61 6c 69 73 74 29 29 29 |ar (car |alist)))|
|00000ec0| 0a 09 28 73 65 74 71 20 | 61 6c 69 73 74 20 28 63 |..(setq |alist (c|
|00000ed0| 64 72 20 61 6c 69 73 74 | 29 29 29 0a 20 20 20 20 |dr alist|))). |
|00000ee0| 20 20 29 29 29 0a 0a 28 | 64 65 66 76 61 72 20 6c | )))..(|defvar l|
|00000ef0| 32 6c 2d 67 6c 6f 62 61 | 6c 2d 61 6c 69 73 74 20 |2l-globa|l-alist |
|00000f00| 27 28 0a 09 09 09 20 20 | 20 3b 3b 20 46 6f 6e 74 |'(.... | ;; Font|
|00000f10| 73 0a 09 09 09 20 20 20 | 28 22 7b 5c 5c 5c 5c 74 |s.... |("{\\\\t|
|00000f20| 74 20 22 20 2e 20 22 5c | 5c 5c 5c 74 7b 22 29 0a |t " . "\|\\\t{").|
|00000f30| 09 09 09 20 20 20 28 22 | 7b 5c 5c 5c 5c 62 66 20 |... ("|{\\\\bf |
|00000f40| 22 20 2e 20 22 5c 5c 5c | 5c 72 7b 22 29 0a 09 09 |" . "\\\|\r{")...|
|00000f50| 09 20 20 20 28 22 7b 5c | 5c 5c 5c 69 74 20 22 20 |. ("{\|\\\it " |
|00000f60| 2e 20 22 5c 5c 5c 5c 74 | 7b 22 29 0a 09 09 09 20 |. "\\\\t|{").... |
|00000f70| 20 20 28 22 7b 5c 5c 5c | 5c 73 6c 20 22 20 2e 20 | ("{\\\|\sl " . |
|00000f80| 22 5c 5c 5c 5c 69 7b 22 | 29 0a 09 09 09 20 20 20 |"\\\\i{"|).... |
|00000f90| 28 22 7b 5c 5c 5c 5c 65 | 6d 20 22 20 2e 20 22 5c |("{\\\\e|m " . "\|
|00000fa0| 5c 5c 5c 65 6d 70 68 7b | 22 29 0a 09 09 09 20 20 |\\\emph{|").... |
|00000fb0| 20 28 22 5e 5b 25 5d 2b | 22 20 2e 20 22 5c 5c 63 | ("^[%]+|" . "\\c|
|00000fc0| 22 29 0a 09 09 09 20 20 | 20 3b 3b 20 74 68 69 73 |").... | ;; this|
|00000fd0| 20 62 72 65 61 6b 73 20 | 6f 6e 20 5c 7e 0a 09 09 | breaks |on \~...|
|00000fe0| 09 20 20 20 28 22 7e 22 | 20 2e 20 22 5c 5c 5c 5c |. ("~"| . "\\\\|
|00000ff0| 74 69 65 22 29 0a 09 09 | 09 20 20 20 28 22 24 5c |tie")...|. ("$\|
|00001000| 5c 5c 5c 6c 64 6f 74 73 | 5c 5c 24 22 20 2e 20 22 |\\\ldots|\\$" . "|
|00001010| 5c 5c 5c 5c 64 6f 74 73 | 7b 7d 22 29 0a 09 09 09 |\\\\dots|{}")....|
|00001020| 20 20 20 3b 3b 20 54 68 | 69 73 20 69 73 20 61 20 | ;; Th|is is a |
|00001030| 77 69 6c 64 20 67 75 65 | 73 73 0a 09 09 09 20 20 |wild gue|ss.... |
|00001040| 20 28 22 24 5c 5c 28 5b | 61 2d 7a 41 2d 5a 5d 2b | ("$\\([|a-zA-Z]+|
|00001050| 5c 5c 29 5c 5c 24 22 20 | 2e 20 22 5c 5c 5c 5c 76 |\\)\\$" |. "\\\\v|
|00001060| 61 72 7b 5c 5c 31 7d 22 | 29 0a 09 09 09 20 20 20 |ar{\\1}"|).... |
|00001070| 29 29 0a 0a 0a | |))... | |
+--------+-------------------------+-------------------------+--------+--------+
